From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 Feb 2009 02:31:55 +0000 (+0000)
Subject: (rmail-edit-diff-headers): Delete spurious reference to OLD.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1768
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9bb66258790be19b9e54646b4b7534488c94eee1;p=emacs.git

(rmail-edit-diff-headers): Delete spurious reference to OLD.
---

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 40d5f024894..826e5da06e3 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -284,9 +284,9 @@ where OLD is a element of OLD-HEADERS and NEW is an element of NEW-HEADERS."
     ;; Look at the new headers with no old counterpart.
     (dolist (new new-headers)
       (let ((prev (cadr (member new reverse-new))))
-	;; Mark each one as an insertion.  Show the previous new header.
-	(unless old
-	  (push (list prev new) inserted))))
+	;; Mark each one as an insertion.
+	;; Record the previous new header, to insert it after that.
+	(push (list prev new) inserted)))
     ;; It is crucial to return the insertions in buffer order
     ;; so that `rmail-edit-update-headers' can insert a field
     ;; after a new field.